
(set #mmchoice "Select your TV card model") 

;********************************************************************

(set #mmtv1  "ADS Tech. CH. Surfer TV  ")
(set #mmtv2  "Aimslab VHX              ")
(set #mmtv3  "Anubis TView CPH061      ")
(set #mmtv4  "Askey Magic Tview CP061  ")
(set #mmtv5  "AVEC Intercapture        ")
(set #mmtv6  "AVerMedia TVPhone        ")
(set #mmtv7  "CEI Rafles Card          ")
(set #mmtv8  "Chronos Video Shuttle II ")
(set #mmtv9  "Diamond DTV2000          ")
(set #mmtv10 "Dynalink Magic TView     ")
(set #mmtv11 "Next                     ")


     (set PREFS1 (askchoice (choices  
     #mmtv1 #mmtv2 #mmtv3 #mmtv4
     #mmtv5 #mmtv6 #mmtv7 #mmtv8
     #mmtv9 #mmtv10 #mmtv11 


 
                         (prompt #mmchoice)
                         (help #mminfo)
                         (default 10)
                       )
            )     
)

;********************************************************************

(if (= PREFS1 10) (

(set #mmtv12 "Eagle Wireless Capricorn ")
(set #mmtv13 "Fly Video II             ")
(set #mmtv14 "FlyVideo '98 FM          ")
(set #mmtv15 "FlyVideo 98              ")
(set #mmtv16 "GrandTec Video Capture   ")
(set #mmtv17 "Hauppauge new (Bt878)    ")
(set #mmtv18 "Hauppage old             ")
(set #mmtv19 "Imagenation PXC200       ")
(set #mmtv20 "Intel Create & Share PCI ")
(set #mmtv21 "Intel                    ")
(set #mmtv22 "Next                     ")


     (set PREFS2 (askchoice (choices 
     #mmtv12 #mmtv13 #mmtv14 #mmtv15 #mmtv16
     #mmtv17 #mmtv18 #mmtv19 #mmtv20 #mmtv21
     #mmtv22


                         (prompt #mmchoice)
                         (help #mminfo)
                         (default 10)
                       )
            )     
 )
))

;********************************************************************

(if (= PREFS2 10) (

(set #mmtv23 "iProTV                   ")
(set #mmtv24 "Leadtek WinFast 2000     ")
(set #mmtv25 "Leadtek WinView 601      ")
(set #mmtv26 "LifeView FlyKit          ")
(set #mmtv27 "Little OnAir TV          ")
(set #mmtv28 "MATRIX-Vision MV-Delta 2 ")
(set #mmtv29 "MATRIX-Vision MV-Delta   ")
(set #mmtv30 "MIRO PCTV pro            ")
(set #mmtv31 "MIRO PCTV                ")
(set #mmtv32 "Newer Hauppauge WinCam   ")
(set #mmtv33 "Next                     ")


     (set PREFS3 (askchoice (choices  
     #mmtv23 #mmtv24 #mmtv25 #mmtv26 #mmtv27
     #mmtv28 #mmtv29 #mmtv30 #mmtv31 #mmtv32
     #mmtv33

                         (prompt #mmchoice)
                         (help #mminfo)
                         (default 10)
                       )
            )     
 )
))




;********************************************************************

(if (= PREFS3 10) (



(set #mmtv34 "Phoebe TV Master + FM    ")
(set #mmtv35 "Pinnacle PCTV Studio Pro ")
(set #mmtv36 "Pinnacle PCTV StudioRave ")
(set #mmtv37 "PixelView PlayTV (Bt878) ")
(set #mmtv38 "PixelView PlayTV pro     ")
(set #mmtv39 "Sigma TVII-FM            ")
(set #mmtv40 "STB                      ")
(set #mmtv41 "STB2                     ")
(set #mmtv42 "Terratec TV-Boostar      ")
(set #mmtv43 "TurboTV                  ")
(set #mmtv44 "Next                     ")


(set PREFS4 (askchoice (choices 


#mmtv34 #mmtv35 #mmtv36 #mmtv37 
#mmtv38 #mmtv39 #mmtv40 #mmtv41
#mmtv42 #mmtv43 #mmtv44

(prompt #mmchoice)
                         (help #mminfo)
                         (default 10)
                       )
            )     
 )
))


;********************************************************************

(if (= PREFS4 10) (


(set #mmtv45 "TView99 CPH063           ")
(set #mmtv46 "Typhoon TView CPH061     ")
(set #mmtv47 "Typhoon TView TV FM      ")
(set #mmtv48 "Vobis TV-Boostar         ")
(set #mmtv49 "Zoltrix TV-Max           ")
(set #mmtv50 "Default                  ")


(set PREFS5 (askchoice (choices 

#mmtv45 #mmtv46 #mmtv47 #mmtv48
#mmtv49 #mmtv50

(prompt #mmchoice)
                         (help #mminfo)
                         (default 5)
                       )
            )     
 )
))

;********************************************************************

(if (= PREFS1 0) (copyfiles (newname "TV.prefs") (source "TVprefs/ADS Tech. CH. Surfer TV.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS1 1) (copyfiles (newname "TV.prefs") (source "TVprefs/Aimslab VHX.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS1 2) (copyfiles (newname "TV.prefs") (source "TVprefs/Anubis TView CPH061.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS1 3) (copyfiles (newname "TV.prefs") (source "TVprefs/Askey Magic TView CPH061.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS1 4) (copyfiles (newname "TV.prefs") (source "TVprefs/AVEC Intercapture.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS1 5) (copyfiles (newname "TV.prefs") (source "TVprefs/AVerMedia TVPhone.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS1 6) (copyfiles (newname "TV.prefs") (source "TVprefs/CEI Rafles Card.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS1 7) (copyfiles (newname "TV.prefs") (source "TVprefs/Chronos Video Shuttle II.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS1 8) (copyfiles (newname "TV.prefs") (source "TVprefs/Diamond DTV2000.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS1 9) (copyfiles (newname "TV.prefs") (source "TVprefs/Dynalink Magic TView.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

;********************************************************************

(if (= PREFS1 10) (
(if (= PREFS2 0) (copyfiles (newname "TV.prefs") (source "TVprefs/Eagle Wireless Capricorn.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS2 1) (copyfiles (newname "TV.prefs") (source "TVprefs/Fly Video II.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS2 2) (copyfiles (newname "TV.prefs") (source "TVprefs/FlyVideo '98 FM.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS2 3) (copyfiles (newname "TV.prefs") (source "TVprefs/FlyVideo 98.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS2 4) (copyfiles (newname "TV.prefs") (source "TVprefs/GrandTec Video Capture.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS2 5) (copyfiles (newname "TV.prefs") (source "TVprefs/Hauppauge new (Bt878).prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS2 6) (copyfiles (newname "TV.prefs") (source "TVprefs/Hauppauge old.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS2 7) (copyfiles (newname "TV.prefs") (source "TVprefs/Imagenation PXC200.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS2 8) (copyfiles (newname "TV.prefs") (source "TVprefs/Intel Create & Share PCI.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS2 9) (copyfiles (newname "TV.prefs") (source "TVprefs/Intel.prefs") (dest "Envarc:Mediator") (optional "nofail") ))
))

;********************************************************************

(if (= PREFS2 10) (
(if (= PREFS3 0) (copyfiles (newname "TV.prefs") (source "TVprefs/iProTV.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS3 1) (copyfiles (newname "TV.prefs") (source "TVprefs/Leadtek WinFast 2000.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS3 2) (copyfiles (newname "TV.prefs") (source "TVprefs/Leadtek WinView 601.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS3 3) (copyfiles (newname "TV.prefs") (source "TVprefs/LifeView FlyKit.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS3 4) (copyfiles (newname "TV.prefs") (source "TVprefs/Little OnAir TV.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS3 5) (copyfiles (newname "TV.prefs") (source "TVprefs/MATRIX-Vision MV-Delta 2.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS3 6) (copyfiles (newname "TV.prefs") (source "TVprefs/MATRIX-Vision MV-Delta.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS3 7) (copyfiles (newname "TV.prefs") (source "TVprefs/MIRO PCTV pro.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS3 8) (copyfiles (newname "TV.prefs") (source "TVprefs/MIRO PCTV.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS3 9) (copyfiles (newname "TV.prefs") (source "TVprefs/Newer Hauppauge WinCam.prefs") (dest "Envarc:Mediator") (optional "nofail") ))
))

;********************************************************************

(if (= PREFS3 10) (
(if (= PREFS4 0) (copyfiles (newname "TV.prefs") (source "TVprefs/Phoebe TV Master + FM.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS4 1) (copyfiles (newname "TV.prefs") (source "TVprefs/Pinnacle PCTV Studio Pro.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS4 2) (copyfiles (newname "TV.prefs") (source "TVprefs/Pinnacle PCTV StudioRave.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS4 3) (copyfiles (newname "TV.prefs") (source "TVprefs/PixelView PlayTV (Bt878).prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS4 4) (copyfiles (newname "TV.prefs") (source "TVprefs/PixelView PlayTV pro.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS4 5) (copyfiles (newname "TV.prefs") (source "TVprefs/Sigma TVII-FM.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS4 6) (copyfiles (newname "TV.prefs") (source "TVprefs/STB.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS4 7) (copyfiles (newname "TV.prefs") (source "TVprefs/STB2.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS4 8) (copyfiles (newname "TV.prefs") (source "TVprefs/Terratec TV-Boostar.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS4 9) (copyfiles (newname "TV.prefs") (source "TVprefs/TurboTV.prefs") (dest "Envarc:Mediator") (optional "nofail") ))
))

;********************************************************************

(if (= PREFS4 10) (
(if (= PREFS5 0) (copyfiles (newname "TV.prefs") (source "TVprefs/TView99 CPH063.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS5 1) (copyfiles (newname "TV.prefs") (source "TVprefs/Typhoon TView CPH0.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS5 2) (copyfiles (newname "TV.prefs") (source "TVprefs/Typhoon TView TV FM.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS5 3) (copyfiles (newname "TV.prefs") (source "TVprefs/Vobis TV-Boostar.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS5 4) (copyfiles (newname "TV.prefs") (source "TVprefs/Zoltrix TV-Max.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

(if (= PREFS5 5) (copyfiles (newname "TV.prefs") (source "TVprefs/PixelView PlayTV pro.prefs") (dest "Envarc:Mediator") (optional "nofail") ))

))

;********************************************************************
;********************************************************************
;********************************************************************


(set #sschoice "Select the TV system of your location") 

;********************************************************************

(set #sstv1  "PAL-M     ")
(set #sstv2  "PAL-N     ")
(set #sstv3  "PAL-BDGHI ")
(set #sstv4  "NTSC-M    ")
(set #sstv5  "NTSC-MJ   ")
(set #sstv6  "SECAM-BDGK")
(set #ssinfo "See the Country file in TV Drivers area. ")

     (set KOLOR (askchoice (choices  
     #sstv1 #sstv2 #sstv3 #sstv4
     #sstv5 #sstv6 

 
                         (prompt #sschoice)
                         (help #ssinfo)
                         (default 2)
                       )
            )     
)

(if (= KOLOR 0) (copyfiles (source "TVsystems/PAL-M/TV.info") (dest "c:") (optional "nofail") ))
(if (= KOLOR 1) (copyfiles (source "TVsystems/PAL-N/TV.info") (dest "c:") (optional "nofail") ))
(if (= KOLOR 2) (copyfiles (source "TVsystems/PAL-BDGHI/TV.info") (dest "c:") (optional "nofail") ))
(if (= KOLOR 3) (copyfiles (source "TVsystems/NTSC-M/TV.info") (dest "c:") (optional "nofail") ))
(if (= KOLOR 4) (copyfiles (source "TVsystems/NTSC-MJ/TV.info") (dest "c:") (optional "nofail") ))
(if (= KOLOR 5) (copyfiles (source "TVsystems/SECAM-BDGK/TV.info") (dest "c:") (optional "nofail") ))
(copyfiles (source "C/TV") (dest "C:"))
(copyfiles (source "libs/tv.library") (dest "libs:"))


;********************************************************************

;********************************************************************

(set #SSchoice "Select your location")

(set #cctv1  "AUSTRALIA              ")
(set #cctv2  "IRELAND                ")
(set #cctv3  "ITALY                  ")
(set #cctv4  "JAPAN                  ")
(set #cctv5  "NEW ZELAND             ")
(set #cctv6  "WEST EUROPE         ")
(set #cctv7  "REST OF THE WORLD      ")
(set #cctv8  "AMERICA                ")

     (set KRAJ (askchoice (choices  
     #cctv1 #cctv2 #cctv3 #cctv4
     #cctv5 #cctv6 #cctv7 #cctv8

 
                         (prompt #sschoice)
                         (help #ccinfo)
                         (default 6)
                       )
            )     
)

(makedir (infos) "sys:CHANNELS")
(if (= KRAJ 0) (copyfiles (source "CHANNELS/AUSTRALIA") (dest "sys:CHANNELS") (all) (optional "nofail") ))

(if (= KRAJ 1) (copyfiles (source "CHANNELS/IRELAND") (dest "SYS:CHANNELS") (all) (optional "nofail") ))

(if (= KRAJ 2) (copyfiles (source "CHANNELS/ITALY") (dest "sys:CHANNELS") (all) (optional "nofail") ))

(if (= KRAJ 3) (copyfiles (source "CHANNELS/JAPAN") (dest "sys:CHANNELS") (all) (optional "nofail") ))

(if (= KRAJ 4) (copyfiles (source "CHANNELS/NEW ZELAND") (dest "sys:CHANNELS") (all) (optional "nofail") ))

(if (= KRAJ 5) (copyfiles (source "CHANNELS/WEST EUROPE") (dest "sys:CHANNELS") (all) (optional "nofail") ))

(if (= KRAJ 6) (copyfiles (source "CHANNELS/REST OF THE WORLD") (dest "sys:CHANNELS") (all) (optional "nofail") ))

(if (= KRAJ 7) (copyfiles (source "CHANNELS/AMERICA") (dest "sys:CHANNELS") (all) (optional "nofail") ))

(exit (quiet))






 


